home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / StudioV1.03.adf / Install-Studio < prev    next >
Text File  |  1993-05-04  |  44KB  |  1,510 lines
  1. ; $VER: Studio 1.10 (03.05.93)
  2. ; Copyright (C)1992,93 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6. ;**** English text
  7.  
  8. (set #welcome
  9. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  10.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  11. ))
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the Studio printer software!\n\n"
  14.     "Studio is Copyright (C)1992,93 by Wolf Faust\n"
  15.     "This software is NOT public domain, shareware, freeware...\n\n\n"
  16.     "Please, spread the word and do not copy!"
  17. ))
  18. (set #bad-kick
  19. (cat    "\nYour system software is very old. "
  20.     "You must use at least Kickstart 2.04 for all Studio programs "
  21.     "with  an  user-interface.   Anyway,  you may use the printer "
  22.     "drivers until you have updated your system software."
  23. ))
  24. (set #w-studio
  25. (cat "Wich parts of Studio do you want to install?"
  26. ))
  27. (set #w-studio-help
  28. (cat "\nStudio is devided in two independent parts: "
  29.     "printer driver and Studio print program. "
  30.     "You can now select wich parts should be installed!\n\n".
  31.     @askoptions-help
  32. ))
  33. (set #w-studio-choices1
  34. (cat "Studio printer driver"
  35. ))
  36. (set #w-studio-choices2
  37. (cat "Studio application program"
  38. ))
  39. (set #which-disk
  40. (cat "In which disk or drawer should the Studio application program be installed?"
  41. ))
  42. (set #which-disk-help
  43. (cat "\nThis section lets you choose in which drawer or on which disk the "
  44.     "Studio application program files should be installed. "
  45.     "These should normally go into the default directory of your graphic "
  46.     "application programs.\n\n"
  47.     @askdir-help
  48. ))
  49. (set #abortmsg
  50. (cat "\nThis installation requires about 160000 bytes free on the volume "
  51.     "where you wish to install Studio. Please make this space "
  52.     "available and then re-install.\n\n"
  53. ))
  54. (set #abortunpack
  55. (cat "\nError occured while unpacking/writing a file!\n\n"
  56. ))
  57. (set #ask-sys
  58. (cat "\nIn which disk or drawer should the Studio printer driver be installed?"
  59. ))
  60. (set #ask-sys-help
  61. (cat "\nThis section lets you choose in which drawer or on which disk the "
  62.     "Studio printer driver should be installed. "
  63.     "The driver should normally go into the \"devs:printers\" directory "
  64.     "of your system disk.\n\n"
  65.     @askdir-help
  66. ))
  67. (set #abortmsgdriver
  68. (cat "\nThis installation requires >35000 bytes free on the volume "
  69.     "where you wish to install the printer driver. Please make this space "
  70.     "available and then re-install.\n\n"
  71. ))
  72. (set #ask-prefs
  73. (cat "\nIn which disk or drawer should the printer preferences program be installed?"
  74. ))
  75. (set #ask-prefs-help
  76. (cat "\nThis section lets you choose in which drawer or on which disk the "
  77.     "Studio printer driver preferences program should be installed. "
  78.     "These should normally go into the \"sys:prefs\" directory of your system "
  79.     "disk.\n\n"
  80.     @askdir-help
  81. ))
  82. (set #abortmsgpref
  83. (cat "\nThis installation requires >80000 bytes free on the volume "
  84.     "where you wish to install the preferences program. Please make this space "
  85.     "available and then re-install.\n\n"
  86. ))
  87. (set #missing-env-kick
  88. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  89.     "Studio stores settings like emulation and brightness in the ENV: directory. "
  90.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  91.     "It seems, you have altered the startup-sequence. Please change the startup-sequence "
  92.     "and reinstall!\n\n"
  93. ))
  94. (set #ask-env-mes
  95. (cat "\nThere is no ENV: directory available for storing the driver environment settings!\n"
  96.     "Studio stores settings like emulation and brightness in the ENV: directory. "
  97.     "Normaly, ENV: is generated by the standard Commodore startup-sequence.\n"
  98.     "It seems, you have altered the startup-sequence. You may now change the startup-sequence "
  99.     "with the help of this install program!\n\n"
  100. ))
  101. (set #ask-env
  102. (cat "\nIn which disk or drawer should the environment settings (ENV:) be saved?"
  103. ))
  104. (set #ask-env-help
  105. (cat "\nThis section lets you choose in which drawer or on which disk the "
  106.     "Studio printer driver places its enviroment settings. "
  107.     "These should normally go in the \"ENV:\" directory of your system disk.\n\n"
  108.     "Make sure ENV: is saved on a non volatile disk, so your settings "
  109.     "keep active even after a turning off your computer\n\n"
  110.     @askdir-help
  111. ))
  112. (set #ask-startup
  113. (cat "\nAdd ENV: assign to \"S:user-startup\"?"
  114. ))
  115. (set #ask-startup-help
  116. (cat "\nSelect YES to add assign to the user-startup file\n\n"
  117.     @startup-help
  118. ))
  119. (set #warn-env-kick
  120. (cat "\nNote: Please make sure your ENV: directory is assigned to a non volatile "
  121.     "disk in your \"s:startup-sequence\" or you will loose your driver settings "
  122.     "when turning off your computer. So please, check your startup-sequence after "
  123.     "finishing this installation and change it if required.\n\n"
  124.     "Note: unchanged standard Workbench 1.3.x startup-sequences do NOT assign "
  125.     "ENV: to a non-volatile disk and must get altered\n"
  126. ))
  127. (set #w-emul
  128. (cat "What's your printers emulation?"
  129. ))
  130. (set #w-emul-help
  131. (cat "\nStudio includes several printer drivers for various "
  132.     "printer emulations. "
  133.     "Have a look into your printers user manual for "
  134.     "finding the emulation supported by your printer.\n\n"
  135.     "NOTE: often printers support more than one emulation. "
  136.     "You may have to try several emulations to find the one "
  137.     "fitting your needs best!\n\n"
  138.     @askchoice-help
  139. ))
  140. (set #w-desk
  141. (cat "What's your printers emulation?"
  142. ))
  143. (set #w-desk-help
  144. (cat @askchoice-help
  145. ))
  146. (set #w-color
  147. (cat "What kind of printer do you have?"
  148. ))
  149. (set #w-color-help
  150. (cat "\nStudio printer drivers allow you to print up to 256 greyshades "
  151.     "simulating a color printer. In order to enable this feature, you have "
  152.     "to choose between color or 256 greyshades.\n"
  153.     "You should select the kind of printer you have as default. "
  154.     "You may alter the setting anytime using the Studio preferences program.\n\n"
  155.     @askchoice-help
  156. ))
  157. (set #w-color-choice1
  158. (cat "Colour"
  159. ))
  160. (set #w-color-choice2
  161. (cat "Black and white"
  162. ))
  163. (set #cfm-delete
  164. (cat "\n\nCan the old Studio printer driver settings be deleted?"
  165. ))
  166. (set #cfm-delete-help
  167. (cat "\nIt seems you have allready installed a Studio printer driver. "
  168.     "You must delete the settings made for the previous driver before "
  169.     "installing a new driver.\n\n"
  170. ))
  171. (set #cfm-delete-1
  172. (cat "Yes, kill'm"
  173. ))
  174. (set #cfm-delete-2
  175. (cat "No"
  176. ))
  177. (set #cfmdelete
  178. (cat "You did not allow me to delete your old driver settings! "
  179.     "Sorry, I'm unable to install a driver without erasing your "
  180.     "previous settings. This is done for your secure. "
  181.     "In case you decided to delete the settings, try installing again!\n\n"
  182. ))
  183. (set #w-driver
  184. (cat "What's your printers emulation/brand?"
  185. ))
  186. (set #w-driver-help
  187. (cat "\nStudio includes several printer drivers for various "
  188.     "printer emulations. "
  189.     "Have a look into your printers user manual for "
  190.     "finding the emulation supported by your printer.\n\n"
  191.     "NOTE: often printers support more than one emulation. "
  192.     "You may have to try several emulations to find the one "
  193.     "fitting your needs best!\n\n"
  194.     @askchoice-help
  195. ))
  196. (set #w-ink
  197. (cat "What kind of printer do you have?"
  198. ))
  199. (set #w-ink-help
  200. (cat @askchoice-help
  201. ))
  202. (set #w-ink-choice1
  203. (cat "Inkjet printer"
  204. ))
  205. (set #w-ink-choice2
  206. (cat "Pin printer"
  207. ))
  208. (set #w-gemu
  209. (cat "What's your printers graphic emulation?"
  210. ))
  211. (set #w-gemu-help
  212. (cat "\nMost 24 pin printers support 360 vertical dots per inch. "
  213.     "Star printers do this by using one of two emulation: NEC or EPSON. "
  214.     "The emulation usualy gets selected by a printer dip-switch."
  215.     "\n\nNote: Old Star (NB) printers only support NEC emulation!\n\n"
  216.     "You may now choose the emulation for the Amiga driver, which must be equal to "
  217.     "the printers setup. You may also change the setting later using the Studio "
  218.     "PinPref program\n\n"
  219.     @askchoice-help
  220. ))
  221. (set #w-gemu2
  222. (cat "What's your printers graphic emulation?"
  223. ))
  224. (set #w-gemu2-help
  225. (cat "\nMost 24 pin printers support 360 vertical dots per inch. "
  226.     "Panasonic printers do this by using one of two emulation: NEC or EPSON. "
  227.     "The emulation usualy gets selected by a printer dip-switch."
  228.     "\n\nNote: Old Panasonic printers only support NEC emulation!\n\n"
  229.     "You may now choose the emulation for the Amiga driver, which must be equal to "
  230.     "the printers setup. You may also change the setting later using the Studio "
  231.     "PinPref program\n\n"
  232.     @askchoice-help
  233. ))
  234. (set #w-laser
  235. (cat "What kind of laser do you have?"
  236. ))
  237. (set #w-laser-help
  238. (cat "\nThere are several kinds of laserjet emulations available. "
  239.     "This window helps you finding a good setup for your printer, "
  240.     "though, you most likely have to \"fine tune\" the settings. \n\n"
  241.     @askchoice-help
  242. ))
  243. (set #pagestream
  244. (cat "\n\nDo you want to install PCL 5 (Laserjet III/IV) drivers for the "
  245.     "PageStream 2.x DTP program?\n\n"
  246. ))
  247. (set #pagestream-help
  248. (cat "\nStudio comes with special printer drivers for the PageStream 2.x "
  249.     "program. In case you own this DTP package, you can use these faster "
  250.     "printer drivers offering a 200%% speed increase."
  251. ))
  252. (set #pagestream-yes
  253. (cat "Yes"
  254. ))
  255. (set #pagestream-no
  256. (cat "No"
  257. ))
  258. (set #pagestreamdesk
  259. (cat "\n\nDo you want to install custom DeskPref4C driver for the "
  260.     "PageStream 2.x DTP program?\n\n"
  261. ))
  262. (set #emu
  263. (cat "\n\nDo you use more than one emulation on your printer? "
  264.     "In case you switch your printer between these emulations (manual or automatic) select YES.\n\n"
  265. ))
  266. (set #emu-help
  267. (cat "\nSelect yes if you own a printer wich allows you to switch between "
  268.     "emulations. For instance, your printer owns a PostScript cartridge and you "
  269.     "use the Laserjet and PostScript emulation on your printer during a session. "
  270.     "In this case select YES and the Studio laserjet driver will make sure, "
  271.     "your printer is setup right each time you print a document.\n\n"
  272. ))
  273. (set #emu-yes
  274. (cat "Yes"
  275. ))
  276. (set #emu-no
  277. (cat "No"
  278. ))
  279. (set #ask-pagestream
  280. (cat "\nIn which drawer should the PageStream drivers (HP-PCL5 & HP-PCL5-PJL) be saved?"
  281. ))
  282. (set #ask-pagestreamdesk
  283. (cat "\nIn which drawer should the PageStream drivers (DeskPref4C) be saved?"
  284. ))
  285. (set #ask-pagestream-help
  286. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  287.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  288.     @askdir-help
  289. ))
  290. (set #HPsetup
  291. (cat "\n\nPlease set your printer resolution to 600 dpi!"
  292. ))
  293. (set #finalmsg1
  294. (cat "Your requested driver has been installed. The name of the driver is\n\""
  295. ))
  296. (set #finalmsg2
  297. (cat "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  298.     "The Studio driver preferences program has been saved as\n\""
  299. ))
  300. (set #finalmsg3
  301. (cat "\"\nand should now be used to adjust the driver to your needs.\n"
  302.     "Note: the settings and adjustments made by this install program are far from "
  303.     "being best. Please adjust all settings to your printer!"
  304. ))
  305. (set #wrongdither
  306. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG!\n\n"
  307.     "Please select \"ordered\" dithering in preferences "
  308.     "(in \"PrinterGfx\"). I will now try to start Workbench preferences for you."
  309. ))
  310.  
  311. ;*** German
  312. (if (= @language "deutsch")
  313. (
  314.  
  315. (set #welcome
  316. (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  317.     "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  318. ))
  319. (set #welcome-pirate
  320. (cat "\nWillkommen zur Installation der Studio-Software!\n\n"
  321.     "Copyright (C)1992,93 Wolf Faust / Vertrieb: MacroSystem\n"
  322.     "Studio ist NICHT Public Domain, Shareware, FreeWare oder ähnliches!\n\n\n"
  323.     "Bitte kopieren Sie daher nicht die Software oder ein weiteres Amiga-Produkt "
  324.     "kann in Zukunft nicht unterstützt werden!"
  325. ))
  326. (set #bad-kick
  327. (cat    "\nIhre System-Software ist sehr alt. "
  328.     "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme "
  329.     "mit einer Benutzeroberfläche. Sie können dennoch die Druckertreiber "
  330.     "benutzen, bis Sie Ihre System-Software auf den neusten Stand gebracht haben."
  331. ))
  332. (set #w-studio
  333. (cat "Welche Programme der Studio-Software wollen Sie installieren?"
  334. ))
  335. (set #w-studio-help
  336. (cat "\nDie Studio-Software besteht im wesentlichen aus zwei von einander "
  337.     "unabhängigen Teilen: Druckertreiber und dem Studio-Anwendungsprogramm. "
  338.     "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  339.     @askoptions-help
  340. ))
  341. (set #w-studio-choices1
  342. (cat "Studio Druckertreiber"
  343. ))
  344. (set #w-studio-choices2
  345. (cat "Studio Anwendungsprogramm"
  346. ))
  347. (set #which-disk
  348. (cat "\nIn welche Disk oder Schublade soll das Studio-Anwendungsprogramm kopiert werden?"
  349. ))
  350. (set #which-disk-help
  351. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  352.     "Schublade das Studio-Programm kopiert werden soll. Normalerweise sollten "
  353.     "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  354.     "Grafikprogramme speichern.\n\n"
  355.     "Bitte beachten Sie, daß das Studio-Programm in die Schublade kopiert "
  356.     "wird und keine neue Schublade ohne ausdrücklichen Wunsch angelegt wird.\n\n"
  357.     @askdir-help
  358. ))
  359. (set #abortmsg
  360. (cat "\nDas Studio-Programm benötigt ca. 160000 Bytes an freiem Speicher "
  361.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  362.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  363.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  364. ))
  365. (set #abortunpack
  366. (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n\n"
  367. ))
  368. (set #ask-sys
  369. (cat "\nIn welche Disk oder Schublade soll der Studio-Druckertreiber kopiert werden?"
  370. ))
  371. (set #ask-sys-help
  372. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  373.     "Schublade der Studio-Druckertreiber kopiert werden soll. Normalerweise sollten "
  374.     "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  375.     @askdir-help
  376. ))
  377. (set #abortmsgdriver
  378. (cat "\nDer Studio-Druckertreiber benötigt ca. 35000 Bytes an freiem Speicher "
  379.     "auf dem von Ihnen angegebenen Datenträger. Leider ist nicht genug "
  380.     "Speicherplatz auf dem Datenträger vorhanden. Löschen Sie bitte "
  381.     "daher unnötige Dateien und versuchen Sie die Installation erneut!\n\n"
  382. ))
  383. (set #ask-prefs
  384. (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  385.     "(engl. Preferences) kopiert werden?"
  386. ))
  387. (set #ask-prefs-help
  388. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  389.     "Schublade das Studio Voreinsteller-Programm kopiert werden soll. "
  390.     "Normalerweise sollten Sie hierzu die Schublade \"Sys:prefs\" wählen.\n\n"
  391.     @askdir-help
  392. ))
  393. (set #missing-env-kick
  394. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  395.     "Studio speichert alle Treiber-Einstellungen in dieser Schublade. "
  396.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  397.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  398.     "Startup-Sequence.\n"
  399.     "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  400.     "neuem!\n\n"
  401. ))
  402. (set #abortmsgpref
  403. (cat "\nDas Studio-Programm für die Voreinstellungen benötigt ca. 80000 Bytes "
  404.     "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  405.     "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  406.     "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  407.     "eine Installation!\n\n"
  408. ))
  409. (set #ask-env-mes
  410. (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  411.     "Studio speichert alle Treiber-Einstellungen in dieser Schublade. "
  412.     "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  413.     "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  414.     "Startup-Sequence.\n\n"
  415.     "Sie erhalten jetzt die Möglichkeit, Ihre Startup-Sequence mittels "
  416.     "dieses Installations-Programms zu erweitern.\n\n"
  417. ))
  418. (set #ask-env
  419. (cat "\nIn welche Disk oder Schublade sollen die Voreinstellungen (\"Env:\") gespeichert werden?"
  420. ))
  421. (set #ask-env-help
  422. (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  423.     "Schublade der Studio-Druckertreiber seine Voreinstellungen speichert. "
  424.     "Die hier anzugebene Disk bzw. die Schublade (ENV:) sollte NICHT aus einem "
  425.     "leicht löschbaren Medium (z.B. Ram Disk) bestehen, da Sie sonst mit "
  426.     "dem Ausschalten des Computers auch alle Voreinstellungen löschen.\n\n"
  427.     @askdir-help
  428. ))
  429. (set #ask-startup
  430. (cat "\nSoll ich die Zuweisung von "ENV:" in der Datei \"S:user-startup\" vornehmen?"
  431. ))
  432. (set #ask-startup-help
  433. (cat "\nStudio Druckertreiber speichern Ihre Voreinstellung in \"Env:\". "
  434.     "Die Schublade ENV: wird normalerweise von der Startup-Sequence- bzw. User-Startup-Datei Ihres Rechners "
  435.     "angelegt. Dieser Vorgang findet scheinbar bei Ihnen nicht statt. "
  436.     "Sie können daher jetzt mit \"Ja\" (engl. yes) diesen Vorgang Ihrer "
  437.     "User-Startup-Datei hinzufügen.\n\n"
  438.     @startup-help
  439. ))
  440. (set #warn-env-kick
  441. (cat "\nBitte versichern Sie sich, daß die Inhalte der Env:-Schublade bei Ihnen "
  442.     "nicht durch ausschalten des Rechners verloren geht. Env: sollte nicht "
  443.     "einem Verzeichnis im Speicher (Ram Disk) Ihres Rechners zugewiesen sein.\n\n"
  444.     "Achtung: die standard Startup-Sequence der Commodore Workbench 1.3 "
  445.     "weist ENV: einem flüchtigen Speicher zu und muß daher geändert werden!\n"
  446. ))
  447. (set #w-emul
  448. (cat "Was für eine Emulation unterstützt Ihr Drucker?"
  449. ))
  450. (set #w-emul-help
  451. (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  452.     "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  453.     "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  454.     "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  455.     "Versuchen Sie daher mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  456.     @askchoice-help
  457. ))
  458. (set #w-desk
  459. (cat "Was für einen Deskjet Drucker benutzen Sie?"
  460. ))
  461. (set #w-desk-help
  462. (cat @askchoice-help
  463. ))
  464. (set #w-color
  465. (cat "Was für einen Drucker haben Sie?"
  466. ))
  467. (set #w-color-help
  468. (cat "\nStudio Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  469.     "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  470.     "Farb- und Graustufen-Druck wählen.\n"
  471.     "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  472.     "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  473.     "werden.\n\n"
  474.     @askchoice-help
  475. ))
  476. (set #w-color-choice1
  477. (cat "Farbe"
  478. ))
  479. (set #w-color-choice2
  480. (cat "Graustufen"
  481. ))
  482. (set #cfm-delete
  483. (cat "\n\nKönnen die alten Studio-Voreinstellungen gelöscht werden?"
  484. ))
  485. (set #cfm-delete-help
  486. (cat "\nEs scheint, Sie hatten bereits einmal einen Studio-Treiber "
  487.     "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  488.     "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  489. ))
  490. (set #cfm-delete-1
  491. (cat "Ja, löschen"
  492. ))
  493. (set #cfm-delete-2
  494. (cat "Nein"
  495. ))
  496. (set #cfmdelete
  497. (cat "Tut mir leid, aber ohne das Löschen Deiner alter Voreinstellungen "
  498.     "kann ich keinen neuen Treiber installieren. Dies dient Ihrer "
  499.     "Datensicherheit. Sollten Sie sich anders entscheiden, dann rufen "
  500.     "Sie bitte das Installationsprogramm erneut auf!\n\n"
  501. ))
  502. (set #w-driver
  503. (cat "Wie lautet die Emulation bzw. der Hersteller Ihres Druckers?"
  504. ))
  505. (set #w-driver-help
  506. (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  507.     "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  508.     "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  509.     "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  510.     "Versuchen Sie daher mehrere Emulationen, um die für Sie richtige zu finden.\n\n"
  511.     @askchoice-help
  512. ))
  513. (set #w-ink
  514. (cat "Was für einen Typ von Drucker haben Sie?"
  515. ))
  516. (set #w-ink-help
  517. (cat @askchoice-help
  518. ))
  519. (set #w-ink-choice1
  520. (cat "Tintenstrahldrucker"
  521. ))
  522. (set #w-ink-choice2
  523. (cat "Nadeldrucker"
  524. ))
  525. (set #w-gemu
  526. (cat "Was für eine Grafik-Emulation besitzt Ihr Drucker?"
  527. ))
  528. (set #w-gemu-help
  529. (cat "\nDie meisten 24 Matrixdrucker unterstützen heute 360 Punkte pro Inch (1 Inch = 2,54 cm). "
  530.     "Drucker von Star benutzen z.B. eine von zwei Emulationen zur Steuerung dazu: Nec oder Epson "
  531.     "Die zum Druck verwendete Emulation wird üblicherweise am Drucker mit einem kleinen "
  532.     "Schalter eingestellt. Entsprechend muß der Druckertreiber die gleiche Emulation "
  533.     "benutzen.\n\n"
  534.     "Achtung: alte Star-Drucker (Typ NB) unterstützen meist nur Nec-Emulation!\n\n"
  535.     "Sie können auch später jederzeit die Einstellung für die Emulation mit Hilfe "
  536.     "des PinPref-Programms ändern.\n\n"
  537.     @askchoice-help
  538. ))
  539. (set #w-gemu2
  540. (cat "Was für eine Grafik-Emulation besitzt Ihr Drucker?"
  541. ))
  542. (set #w-gemu2-help
  543. (cat "\nDie meisten 24 Matrixdrucker unterstützen heute 360 Punkte pro Inch (1 Inch = 2,54 cm). "
  544.     "Drucker von Star benutzen z.B. eine von zwei Emulationen zur Steuerung dazu: Nec oder Epson "
  545.     "Die zum Druck verwendete Emulation wird üblicherweise am Drucker mit einem kleinen "
  546.     "Schalter eingestellt. Entsprechend muß der Druckertreiber die gleiche Emulation "
  547.     "benutzen.\n\n"
  548.     "Achtung: alte Star-Drucker (Typ NB) unterstützen meist nur Nec-Emulation!\n\n"
  549.     "Sie können auch später jederzeit die Einstellung für die Emulation mit Hilfe "
  550.     "des PinPref-Programms ändern.\n\n"
  551.     @askchoice-help
  552. ))
  553. (set #w-laser
  554. (cat "Was für einen Laserdrucker besitzen Sie?"
  555. ))
  556. (set #w-laser-help
  557. (cat "\nEs gibt viele verschiedene Arten von Laserjet-Emulationen. Die angezeigte "
  558.     "Auswahl hilft die für Sie richtige Emulation zu finden. "
  559.     "Dennoch ist meist ein weiteres optimieren der Einstellungen von "
  560.     "\"Hand\" mittels des LaserPref-Programms nötig.\n\n"
  561.     @askchoice-help
  562. ))
  563. (set #pagestream
  564. (cat "\n\nWollen Sie PCL 5/e (Laserjet III/IV) kompatible Treiber für das DTP-Programm "
  565.     "PageStream installieren?\n\n"
  566. ))
  567. (set #pagestream-help
  568. (cat "\nDas Studio-Paket enthält auch spezielle Druckertreiber für das DTP-Programm "
  569.     "PageStream V2.x. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  570.     "mit diesen PCL 5 und PCL 5e Treibern ca. 200 %% schneller drucken.\n\n"
  571. ))
  572. (set #pagestream-yes
  573. (cat "Ja"
  574. ))
  575. (set #pagestream-no
  576. (cat "Nein"
  577. ))
  578. (set #pagestreamdesk
  579. (cat "\n\nWollen Sie einen 4-Farb-Treiber für das DTP-Programm "
  580.     "PageStream installieren?\n\n"
  581. ))
  582. (set #emu
  583. (cat "\n\nBenutzen Sie mehrere Emulationen Ihres Druckers während einer Computersitzung? "
  584.     "Wenn Sie zwischen diesen Emulationen manuell oder automatisch umschalten, "
  585.     "sollten Sie die Frage mit JA beantworten.\n\n"
  586. ))
  587. (set #emu-help
  588. (cat "\nWählen Sie JA, wenn Sie einen Drucker mit mehreren benutzten Emulationen besitzen! "
  589.     "Haben Sie z.B. einen Laserjet-Drucker mit PostScript-Erweiterng und benutzen "
  590.     "beide Emulationen während einer Computersitzung, dann wählen Sie JA. "
  591.     "Dies stellt sicher, daß der Drucker immer automatisch bei jedem Ausdruck "
  592.     "initialisiert.\n\n"
  593. ))
  594. (set #emu-yes
  595. (cat "Ja"
  596. ))
  597. (set #emu-no
  598. (cat "Nein"
  599. ))
  600. (set #ask-pagestreamdesk
  601. (cat "\nIn welche Schublade soll der PageStream-Treiber (Deskjet4C) "
  602.     "kopiert werden?"
  603. ))
  604. (set #ask-pagestream
  605. (cat "\nIn welche Schublade sollen die PageStream-Treiber (HP-PCL5 & HP-PCL5-PJL) "
  606.     "kopiert werden?"
  607. ))
  608. (set #ask-pagestream-help
  609. (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  610.     "Druckertreiber wählen. Normalerweise sollte die "
  611.     "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  612.     @askdir-help
  613. ))
  614. (set #HPsetup
  615. (cat "\n\nBitte stellen Sie Ihren Drucker auf eine Auflösung von 600 dpi ein!"
  616. ))
  617. (set #finalmsg1
  618. (cat "Der Treiber wurde installiert unter dem Namen\n\""
  619. ))
  620. (set #finalmsg2
  621. (cat "\"\nund sollte jetzt in dem \"Printer\"-Programm der Workbench eingestellt werden.\n"
  622.     "Das Studio-Programm für die Voreinstellungen des Treibers wurde unter den Namen\n\""
  623. ))
  624. (set #finalmsg3
  625. (cat "\"\ngespeichert und sollte jetzt zur genaueren Einstellung benutzt werden.\n"
  626.     "Achtung: die von dem Installations-Programm gemachten Voreinstellungen "
  627.     "sind sicher nicht optimal und können im schlimmsten Fall zu Fehlfunktionen führen, "
  628.     "wenn Sie nicht die Voreinstellungen genauer an Ihren Drucker anpassen!"
  629. ))
  630. (set #wrongdither
  631. (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  632.     "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  633.     "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  634.     "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  635.     "für die Voreinstellungen jetzt gestartet..."
  636. ))
  637.  
  638. ))
  639.  
  640. (welcome #welcome)
  641. (message #welcome-pirate)
  642.  
  643. ; **** sure we are running under a 2.04 ROM???
  644. (if (< (/ (getversion) 65536) 37)
  645.     (message #bad-kick)
  646. )
  647.  
  648. (complete 5)
  649.  
  650. ; **** Wich parts should get installed: driver &-| Studio?
  651. (set studio (askoptions (prompt #w-studio)
  652.     (help #w-studio-help)
  653.     (choices #w-studio-choices1 #w-studio-choices2)
  654.     (default 3)
  655.     )
  656. )
  657. (set compl 60)
  658. (if (= studio 3)
  659. (
  660.     set compl 20
  661. ))
  662. (complete compl)
  663.  
  664. ; **** Install Studio program?
  665. (if (IN studio 1)
  666. (
  667.     (set studdisk (getassign "WORK" "d"))
  668.     (if (= studdisk "")
  669.     (
  670.         (set studdisk (getassign "DH0" "d"))
  671.         (if (= studdisk "")
  672.         (
  673.             (set studdisk (getassign "DH2" "d"))
  674.             (if (= studdisk "")
  675.             (
  676.                 (set studdisk "SYS:")
  677.             ))
  678.         ))
  679.     ))
  680.     (set target (askdir (prompt #which-disk)
  681.         (help #which-disk-help)
  682.         (default studdisk))
  683.     )
  684.     (set @default-dest target)
  685.     (set targetsize (getdiskspace target))
  686.     (if (< targetsize 160000)
  687.     (
  688.         (if (<> (getdevice target) "RAM")
  689.         (
  690.             (abort #abortmsg)
  691.         ))
  692.     ))
  693.     (complete (set compl (+ compl 10)))
  694.     (run (cat "StudioDisk:unpack StudioDisk:packed/Studio.pkd \""
  695.                     (tackon target "Studio\"")
  696.     ))
  697.     (if (exists "RAM:StudioTemp")
  698.     (
  699.         (abort #abortunpack)
  700.     ))
  701.     (complete (set compl (+ compl 10)))
  702.     (copyfiles (source "StudioDisk:Studio")
  703.         (dest target)
  704.         (all))
  705.     (complete (set compl (+ compl 10)))
  706.     (copyfiles (source "StudioDisk:Dithers")
  707.         (dest (tackon target "Dither-Settings"))
  708.         (all)
  709.         (infos)
  710.         (nogauge))
  711.     (complete (set compl (+ compl 10)))
  712. ))
  713.  
  714. ; **** Install printer driver?
  715. (if (IN studio 0)
  716. (
  717.     (set @default-dest "")
  718.     ; find the devs:printers directory
  719.     (set studdisk "Devs:Printers")
  720.     (if (= @user-level 2)
  721.     (
  722.         (set studdisk (askdir (prompt #ask-sys)
  723.             (help #ask-sys-help)
  724.             (default studdisk))
  725.         )
  726.     ))
  727.     (if (not (exists studdisk))
  728.     (
  729.         (set studdisk (askdir (prompt #ask-sys)
  730.             (help #ask-sys-help)
  731.             (default studdisk))
  732.         )
  733.     ))
  734.     (complete (set compl (+ compl 5))) ; 65
  735.     (set targetsize (getdiskspace studdisk))
  736.     (if (< targetsize 35000)
  737.     (
  738.         (if (<> (getdevice studdisk) "RAM")
  739.         (
  740.             (abort #abortmsgdriver)
  741.         ))
  742.     ))
  743.  
  744.  
  745.     ; **** find the sys:prefs directory
  746.     (set prefdisk ("SYS:Prefs"))
  747.     (if (exists "sys:preferences")
  748.     (
  749.         (set prefdisk ("SYS:Preferences"))
  750.     ))
  751.     (if (exists "SYS:Prefs")
  752.     (
  753.         (set prefdisk ("SYS:Prefs"))
  754.     ))
  755.     (set prefdisk (askdir (prompt #ask-prefs)
  756.         (help #ask-prefs-help)
  757.         (default prefdisk))
  758.     )
  759.     (if (not (exists prefdisk))
  760.     (
  761.         (set prefdisk (askdir (prompt #ask-prefs)
  762.             (help #ask-prefs-help)
  763.             (default prefdisk))
  764.         )
  765.     ))
  766.     (set targetsize (getdiskspace prefdisk))
  767.     (if (< targetsize 80000)
  768.     (
  769.         (if (<> (getdevice prefdisk) "RAM")
  770.         (
  771.             (abort #abortmsgpref)
  772.         ))
  773.     ))
  774.     ; find the ENV: directory
  775.     (if (not (exists "ENV:"))
  776.     (
  777.         (if (< (/ (getversion) 65536) 37)
  778.             (abort #missing-env-kick)
  779.         )
  780.         (set envdisk "SYS:Env-Archive")
  781.         (if (exists "SYS:Prefs/Env-Archive")
  782.         (
  783.             (set envdisk "SYS:Prefs/Env-Archive")
  784.         ))
  785.         (message #ask-env-mes)
  786.         (set envdisk (askdir (prompt #ask-env)
  787.             (help #ask-env-help)
  788.             (default envdisk))
  789.         )
  790.         (startup
  791.             "Studio"
  792.             (prompt #ask-startup)
  793.             (help #ask-startup-help )
  794.             (command ("Assign ENV: %s" envdisk))
  795.         )
  796.         (makeassign "ENV" envdisk)
  797.     )
  798.     ( ; else
  799.         (if (< (/ (getversion) 65536) 37)
  800.             (message #warn-env-kick)
  801.         )
  802.     ))
  803.     ; delete old ENV: and ENVARC: settings
  804.     (set n 0 )
  805.     (foreach "Env:" "Studio#?"
  806.     (
  807.         (set n 1)
  808.     ))
  809.     (if (> n 0)
  810.     (
  811.         (if (askbool (prompt (#cfm-delete))
  812.             (help (#cfm-delete-help ))
  813.             (choices #cfm-delete-1 #cfm-delete-2)
  814.             (default 1))
  815.         (
  816.             (set n 0)
  817.             (while (set thisfile (select n  "Beep"
  818.                 "Time"
  819.                 "ResX"
  820.                 "ResY"
  821.                 "Dry"
  822.                 "GAdj"
  823.                 "CAdj"
  824.                 "MAdj"
  825.                 "YAdj"
  826.                 "GDit"
  827.                 "CDit"
  828.                 "MDit"
  829.                 "YDit"
  830.                 "Copies"
  831.                 "Type"
  832.                 "Type0"
  833.                 "Type1"
  834.                 "Type2"
  835.                 "Type3"
  836.                 "Type4"
  837.                 "Type5"
  838.                 "Type6"
  839.                 "Type7"
  840.                 "Type8"
  841.                 "Type9"
  842.                 "Type10"
  843.                 "Perf"
  844.                 "Mirror"
  845.                 "Sep"
  846.                 "Magenta"
  847.                 "Yellow"
  848.                 "Orient"
  849.                 "TDirect"
  850.                 "Scale"
  851.                 "Top"
  852.                 "Tab"
  853.                 "Super"
  854.                 "Form"
  855.                 "Color"
  856.                 "GEmu"
  857.                 "TEmu"
  858.                 "Strip"
  859.                 "Quiet"
  860.                 "KAdj"
  861.                 "KDit"
  862.                 "GFeed"
  863.                 "PageLen"
  864.                 "Wrap"
  865.                 "GDirect"
  866.                 "Shingl"
  867.                 "Depl"
  868.                 "Quality"
  869.                 "Compress"
  870.                 "Symbol"
  871.                 "Tray"
  872.                 "OutTray"
  873.                 "PJL"
  874.                 "HighRes"
  875.                 "PPage"
  876.                 "PjlHighRes"
  877.                 "PjlTimeout"
  878.                 "PjlTimeFlag"
  879.                 "PjlRet"
  880.                 "PjlProtect"
  881.                 "" ))
  882.             (
  883.                 (set n (+ n 1))
  884.                 (if (exists (cat "ENV:Studio" thisfile))
  885.                 (
  886.                     (delete (cat "ENV:Studio" thisfile))
  887.                 ))
  888.                 (if (>= (/ (getversion) 65536) 37)
  889.                     (if (exists (cat "ENVARC:Studio" thisfile))
  890.                     (
  891.                         (delete (cat "ENVARC:Studio" thisfile))
  892.                     ))
  893.                 )
  894.             ))
  895.         )
  896.         ( ; else
  897.             (abort #cfmdelete)
  898.         ))
  899.     ))
  900.  
  901.     ; ask for kind of printer 
  902.     (set emul   (askchoice (prompt #w-emul)
  903.         (help #w-emul-help)
  904.             (choices "Dot-Matrix Emulations: Epson, Nec, Star,..."
  905.                 "Deskjet compatible: DJ500, DJ510, Breeze..."
  906.                 "Deskjet/Paintjet: DJ550C, DJ1200C or HP300XL"
  907.                 "HP LaserJet / PCL compatible"
  908.             )
  909.             (default 0)
  910.     ))
  911.  
  912.     (complete (set compl (+ compl 5))) ;70
  913.  
  914.     ; ask for: color or b/w if not laser printer
  915.     (if (< emul 3)
  916.     (
  917.         (set prtcolor (askchoice (prompt #w-color)
  918.             (help #w-color-help)
  919.             (choices #w-color-choice1
  920.                 #w-color-choice2)
  921.             (default 0)
  922.         ))
  923.         (if (> prtcolor 0)
  924.         (
  925.             (textfile   (dest "ENV:StudioSuper")
  926.                 (append "ON"))
  927.         ))
  928.     ))
  929.     ; copy CMY dithers to dither-settings
  930.     (copyfiles (source "StudioDisk:Dithers")
  931.         (dest (tackon prefdisk "Dither-Settings"))
  932.         (all)
  933.         (infos)
  934.         (nogauge)
  935.     )
  936.     ; make directory for color adjustments
  937.     (if (not (exists (tackon prefdisk "Color-Settings")))
  938.         (makedir (tackon prefdisk "Color-Settings")
  939.             (infos))
  940.     )
  941.     (set ditherord  "8 8  4 236 60 220 8 224 48 208 132 68 188 124 136 72 176 112 36 196 20 252 40 200 24 240 164 100 148 84 168 104 152 88 12 228 52 212 0 232 56 216 140 76 180 116 128 64 184 120 44 204 28 244 32 192 16 248 172 108 156 92 160 96 144 80") ; order 64
  942.     ; now check wich kind of dot matrix printer the user has
  943.     (if (= emul 0)
  944.     (  ; PinDriver
  945.         ; **** copy additional CMYK dithers to dither-settings
  946.         (copyfiles (source "StudioDisk:Dithers4C")
  947.             (dest (tackon prefdisk "Dither-Settings"))
  948.             (all)
  949.             (infos)
  950.             (nogauge)
  951.         )
  952.         (set brand  (askchoice (prompt #w-driver)
  953.             (help #w-driver-help)
  954.             (choices "Epson 24 pin Emulation:    LQ, SQ, ..."
  955.                 "Epson 48 pin Emulation:    SQ, BJC800, ..."
  956.                 "Seikosha   (Epson):        SL230, ..."
  957.                 "Star       (Epson):        SJ/LC/XB, ..."
  958.                 "Oki        (Epson):        390,391, ..."
  959.                 "Nec        (Epson/Nec)  :  P6, P6+, P60,..."
  960.                 "Fujitsu (DPL24C/DPL24C+):  DL1100, ..."
  961.                 "Panasonic  (Epson 24pin):  KX-P, ..."
  962.                 "Citizen    (Epson 24pin):  224, Swift24 ..."
  963.             )
  964.             (default 0)
  965.         ))
  966.         ; do we have an inkjet or pin printer?
  967.         (set kind  (askchoice (prompt #w-ink)
  968.             (help #w-ink-help)
  969.             (choices #w-ink-choice1
  970.                  #w-ink-choice2
  971.             )
  972.             (default 0)
  973.         ))
  974.         (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  975.         (if (= kind 1) ; **** pin printer
  976.         (
  977.             (set ditherord  "8 8  144 160 152 128 108 92 100 124 216 224 232 176 36 28 20 76 208 248 240 168 44 4 12 84 184 200 192 136 68 52 60 116 104 88 96 120 148 164 156 132 32 24 16 72 220 228 236 180 40 0 8 80 212 252 244 172 64 48 56 112 188 204 196 140") ; halftone a 64
  978.             (set adj "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255") ; gamma 32
  979.         ))
  980.         (textfile   (dest "Env:StudioGDit")
  981.             (append ditherord))
  982.         (textfile   (dest "Env:StudioCDit")
  983.             (append ditherord))
  984.         (textfile   (dest "Env:StudioMDit")
  985.             (append ditherord))
  986.         (textfile   (dest "Env:StudioYDit")
  987.             (append ditherord))
  988.         (textfile   (dest "Env:StudioKDit")
  989.             (append ditherord))
  990.         (complete (set compl (+ compl 5))) ; 75
  991.         (set printerdriver "PinDriver")
  992.         (set printerpref "PinPref")
  993.  
  994.         (if (= brand 0) ; **** Epson 24 pin
  995.         (
  996.             (textfile   (dest "Env:StudioGAdj")
  997.                 (append adj))
  998.             (textfile   (dest "Env:StudioCAdj")
  999.                 (append adj))
  1000.             (textfile   (dest "Env:StudioMAdj")
  1001.                 (append adj))
  1002.             (textfile   (dest "Env:StudioYAdj")
  1003.                 (append adj))
  1004.             (textfile   (dest "Env:StudioKAdj")
  1005.                 (append adj))
  1006.         ))
  1007.         (if (= brand 1) ; **** Epson 48 pin
  1008.         (
  1009.             (textfile   (dest "Env:StudioGEmu")
  1010.                 (append "1"))
  1011.             (textfile   (dest "Env:StudioGAdj")
  1012.                 (append adj))
  1013.             (textfile   (dest "Env:StudioCAdj")
  1014.                 (append adj))
  1015.             (textfile   (dest "Env:StudioMAdj")
  1016.                 (append adj))
  1017.             (textfile   (dest "Env:StudioYAdj")
  1018.                 (append adj))
  1019.             (textfile   (dest "Env:StudioKAdj")
  1020.                 (append adj))
  1021.         ))
  1022.         (if (= brand 2) ; **** Seikosha
  1023.         (
  1024.             (textfile   (dest "Env:StudioTEmu")
  1025.                 (append "5"))
  1026.             (textfile   (dest "Env:StudioGAdj")
  1027.                 (append adj))
  1028.             (textfile   (dest "Env:StudioCAdj")
  1029.                 (append adj))
  1030.             (textfile   (dest "Env:StudioMAdj")
  1031.                 (append adj))
  1032.             (textfile   (dest "Env:StudioYAdj")
  1033.                 (append adj))
  1034.             (textfile   (dest "Env:StudioKAdj")
  1035.                 (append adj))
  1036.         ))
  1037.         (if (= brand 3) ; **** Star
  1038.         (
  1039.             (if (askchoice (prompt #w-gemu)
  1040.                 (help #w-gemu-help)
  1041.                 (choices "Epson Emulation:  LC24"
  1042.                     "Nec Emulation:    NBxx"
  1043.                 )
  1044.                 (default 0))
  1045.             (
  1046.                 (textfile   (dest "Env:StudioGEmu")
  1047.                     (append "3"))
  1048.             ))
  1049.             (textfile   (dest "Env:StudioTEmu")
  1050.                 (append "7"))
  1051.             (textfile   (dest "Env:StudioGAdj")
  1052.                 (append adj))
  1053.             (textfile   (dest "Env:StudioCAdj")
  1054.                 (append adj))
  1055.             (textfile   (dest "Env:StudioMAdj")
  1056.                 (append adj))
  1057.             (textfile   (dest "Env:StudioYAdj")
  1058.                 (append adj))
  1059.             (textfile   (dest "Env:StudioKAdj")
  1060.                 (append adj))
  1061.         ))
  1062.         (if (= brand 4) ; **** Oki
  1063.         (
  1064.             (textfile   (dest "Env:StudioGEmu")
  1065.                 (append "2"))
  1066.             (textfile   (dest "Env:StudioTEmu")
  1067.                 (append "1"))
  1068.             (textfile   (dest "Env:StudioGAdj")
  1069.                 (append adj))
  1070.             (textfile   (dest "Env:StudioCAdj")
  1071.                 (append adj))
  1072.             (textfile   (dest "Env:StudioMAdj")
  1073.                 (append adj))
  1074.             (textfile   (dest "Env:StudioYAdj")
  1075.                 (append adj))
  1076.             (textfile   (dest "Env:StudioKAdj")
  1077.                 (append adj))
  1078.         ))
  1079.         (if (= brand 5) ; **** Nec
  1080.         (
  1081.             (textfile   (dest "Env:StudioGEmu")
  1082.                 (append "3"))
  1083.             (textfile   (dest "Env:StudioTEmu")
  1084.                 (append "2"))
  1085.             (textfile   (dest "Env:StudioGAdj")
  1086.                 (append adj))
  1087.             (textfile   (dest "Env:StudioCAdj")
  1088.                 (append adj))
  1089.             (textfile   (dest "Env:StudioMAdj")
  1090.                 (append adj))
  1091.             (textfile   (dest "Env:StudioYAdj")
  1092.                 (append adj))
  1093.             (textfile   (dest "Env:StudioKAdj")
  1094.                 (append adj))
  1095.         ))
  1096.         (if (= brand 6) ; **** Fujitsu
  1097.         (
  1098.             (textfile   (dest "Env:StudioGEmu")
  1099.                 (append "4"))
  1100.             (textfile   (dest "Env:StudioTEmu")
  1101.                 (append "3"))
  1102.             (textfile   (dest "Env:StudioGAdj")
  1103.                 (append adj))
  1104.             (textfile   (dest "Env:StudioCAdj")
  1105.                 (append adj))
  1106.             (textfile   (dest "Env:StudioMAdj")
  1107.                 (append adj))
  1108.             (textfile   (dest "Env:StudioYAdj")
  1109.                 (append adj))
  1110.             (textfile   (dest "Env:StudioKAdj")
  1111.                 (append adj))
  1112.         ))
  1113.         (if (= brand 7) ; **** Panasonic
  1114.         (
  1115.             (if (askchoice (prompt #w-gemu2)
  1116.                 (help #w-gemu2-help)
  1117.                 (choices "Epson Emulation"
  1118.                     "Nec Emulation"
  1119.                 )
  1120.                 (default 1))
  1121.             (
  1122.                 (textfile   (dest "Env:StudioGEmu")
  1123.                     (append "3"))
  1124.             ))
  1125.             (textfile   (dest "Env:StudioTEmu")
  1126.                 (append "4"))
  1127.             (textfile   (dest "Env:StudioGAdj")
  1128.                 (append adj))
  1129.             (textfile   (dest "Env:StudioCAdj")
  1130.                 (append adj))
  1131.             (textfile   (dest "Env:StudioMAdj")
  1132.                 (append adj))
  1133.             (textfile   (dest "Env:StudioYAdj")
  1134.                 (append adj))
  1135.             (textfile   (dest "Env:StudioKAdj")
  1136.                 (append adj))
  1137.         ))
  1138.         (if (= brand 8) ; **** Citizen
  1139.         (
  1140.             (set adj "0 79 106 127 144 158 171 183 194 204 214 223 231 240 247 255")
  1141.             (textfile   (dest "Env:StudioTEmu")
  1142.                 (append "6"))
  1143.             (textfile   (dest "Env:StudioGAdj")
  1144.                 (append adj))
  1145.             (textfile   (dest "Env:StudioCAdj")
  1146.                 (append adj))
  1147.             (textfile   (dest "Env:StudioMAdj")
  1148.                 (append adj))
  1149.             (textfile   (dest "Env:StudioYAdj")
  1150.                 (append adj))
  1151.             (textfile   (dest "Env:StudioKAdj")
  1152.                 (append adj))
  1153.         ))
  1154.         (complete (set compl (+ compl 5))) ; 80
  1155.     ))
  1156.     (if (= emul 1)
  1157.     (  ; Deskjet
  1158.         ; ask for kind of printer 
  1159.         (set desk   (askchoice (prompt #w-desk)
  1160.             (help #w-desk-help)
  1161.                 (choices "HP Deskjet and compatible"
  1162.                     "HP Deskjet Plus"
  1163.                     "HP Deskjet 500  and compatible"
  1164.                     "HP Deskjet 500C and compatible"
  1165.                 )
  1166.                 (default 0)
  1167.         ))
  1168.         (if (> desk 1)
  1169.         (
  1170.             (textfile   (dest "Env:StudioCompress")
  1171.                 (append "3"))
  1172.         ))
  1173.         (set printerdriver "DeskDriver")
  1174.         (set printerpref "DeskPref")
  1175.         (textfile   (dest "Env:StudioGDit")
  1176.             (append ditherord))
  1177.         (textfile   (dest "Env:StudioCDit")
  1178.             (append ditherord))
  1179.         (textfile   (dest "Env:StudioMDit")
  1180.             (append ditherord))
  1181.         (textfile   (dest "Env:StudioYDit")
  1182.             (append ditherord))
  1183.         (complete (set compl (+ compl 10))) ; 80
  1184.         (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  1185.         (textfile   (dest "Env:StudioGAdj")
  1186.             (append adj))
  1187.         (set adj "0 111 137 155 170 182 192 202 210 218 225 232 238 244 250 255")
  1188.         (textfile   (dest "Env:StudioCAdj")
  1189.             (append adj))
  1190.         (textfile   (dest "Env:StudioMAdj")
  1191.             (append adj))
  1192.         (textfile   (dest "Env:StudioYAdj")
  1193.             (append adj))
  1194.         (if (> prtcolor 0)
  1195.         (
  1196.             (textfile   (dest "Env:StudioShingl")
  1197.                 (append "1"))
  1198.         )
  1199.         ( ; else
  1200.             (textfile   (dest "Env:StudioShingl")
  1201.                 (append "2"))
  1202.             (textfile   (dest "Env:StudioDepl")
  1203.                 (append "1"))
  1204.         ))
  1205.     ))
  1206.     (if (= emul 2)
  1207.     (  ; Deskjet 550C  or Paintjet 300XL
  1208.         (set printerdriver "DeskDriver4C")
  1209.         (set printerpref "DeskPref4C")
  1210.         (textfile   (dest "Env:StudioCompress")
  1211.             (append "3"))
  1212.         (textfile   (dest "Env:StudioGDit")
  1213.             (append ditherord))
  1214.         (textfile   (dest "Env:StudioCDit")
  1215.             (append ditherord))
  1216.         (textfile   (dest "Env:StudioMDit")
  1217.             (append ditherord))
  1218.         (textfile   (dest "Env:StudioYDit")
  1219.             (append ditherord))
  1220.         (textfile   (dest "Env:StudioKDit")
  1221.             (append ditherord))
  1222.         (complete (set compl (+ compl 5))) ; 75
  1223.         ; **** copy additional CMYK dithers to dither-settings
  1224.         (copyfiles (source "StudioDisk:Dithers4C")
  1225.             (dest (tackon prefdisk "Dither-Settings"))
  1226.             (all)
  1227.             (infos)
  1228.         )
  1229.         (complete (set compl (+ compl 5))) ; 80
  1230.         (set adj "0 66 93 114 132 147 161 174 186 198 208 218 228 237 246 255")
  1231.         (textfile   (dest "Env:StudioGAdj")
  1232.             (append adj))
  1233.         (set adj "0 111 137 155 170 182 192 202 210 218 225 232 238 244 250 255")
  1234.         (textfile   (dest "Env:StudioCAdj")
  1235.             (append adj))
  1236.         (textfile   (dest "Env:StudioMAdj")
  1237.             (append adj))
  1238.         (textfile   (dest "Env:StudioYAdj")
  1239.             (append adj))
  1240.         (textfile   (dest "Env:StudioKAdj")
  1241.             (append adj))
  1242.         (if (> prtcolor 0)
  1243.         (
  1244.             (textfile   (dest "Env:StudioShingl")
  1245.                 (append "1"))
  1246.         )
  1247.         ( ; else
  1248.             (textfile   (dest "Env:StudioShingl")
  1249.                 (append "2"))
  1250.             (textfile   (dest "Env:StudioDepl")
  1251.                 (append "1"))
  1252.         ))
  1253.         (if (askbool (prompt (#pagestreamdesk))
  1254.             (help (#pagestream-help ))
  1255.             (choices #pagestream-yes #pagestream-no))
  1256.         (
  1257.             (set pagedrawer (askdir (prompt #ask-pagestreamdesk)
  1258.                 (help #ask-pagestream-help)
  1259.                 (default "WORK:"))
  1260.             )
  1261.             ( if( exists (pagedrawer))
  1262.             (
  1263.                 (copyfiles (source "StudioDisk:PgS/Deskjet4C.printer")
  1264.                     (dest pagedrawer)
  1265.                     (files)
  1266.                     (infos)
  1267.                     (nogauge))
  1268.             ))
  1269.         ))
  1270.     ))
  1271.     (if (= emul 3)
  1272.     (  ; Laserjet
  1273.         (set brand  (askchoice (prompt #w-laser)
  1274.             (help #w-laser-help)
  1275.             (choices "HP IV, 4M, 4Si"
  1276.                 "HP IIIP, HP 4L"
  1277.                 "PCL 5 compatible, HP III, IIISI, IIID"
  1278.                 "Brother HL4Ve, Nec S62P, Ricoh LP1200"
  1279.                 "Oki 810, Seikosha OP108, Star LS 5"
  1280.                 "Star LS 4, LS5, LS 8, Seikosha OP104"
  1281.                 "HP IIP, Brother HL4V, HL8V, HL8D"
  1282.                 "PCL 3 / PCL 4 / Laserjet II compatible"
  1283.                 "HP LaserJet I, I+, 500, 2000, II"
  1284.                 "Nec S60P, Panasonic KX-P4455"
  1285.             )
  1286.             (default 7)
  1287.         ))
  1288.         (complete (set compl (+ compl 5))) ; 75
  1289.         (if (= brand 0)
  1290.         (
  1291.             (textfile   (dest "Env:StudioHighRes")
  1292.                 (append "2"))
  1293.             (textfile   (dest "Env:StudioPJL")
  1294.                 (append "1"))
  1295.             (message #HPsetup)
  1296.         ))
  1297.         (if (< brand 7)
  1298.         (
  1299.             (textfile   (dest "Env:StudioCompress")
  1300.                 (append "1"))
  1301.             (if (< brand 5)
  1302.             (
  1303.                 (if (askbool (prompt (#pagestream))
  1304.                     (help (#pagestream-help ))
  1305.                     (choices #pagestream-yes #pagestream-no))
  1306.                 (
  1307.                     (set pagedrawer (askdir (prompt #ask-pagestream)
  1308.                         (help #ask-pagestream-help)
  1309.                         (default "WORK:"))
  1310.                     )
  1311.                     ( if( exists (pagedrawer))
  1312.                     (
  1313.                         (copyfiles (source "StudioDisk:PgS/HP-PCL5.printer")
  1314.                             (dest pagedrawer)
  1315.                             (files)
  1316.                             (infos)
  1317.                             (nogauge))
  1318.                         (copyfiles (source "StudioDisk:PgS/HP-PCL5-PJL.printer")
  1319.                             (files)
  1320.                             (dest pagedrawer)
  1321.                             (infos)
  1322.                             (nogauge))
  1323.                     ))
  1324.                 ))
  1325.                 (textfile   (dest "Env:StudioSymbol")
  1326.                     (append "1"))
  1327.                 (textfile   (dest "Env:StudioCompress")
  1328.                     (append "3"))
  1329.                 (if (< brand 2)
  1330.                 (
  1331.                     (textfile   (dest "Env:StudioCompress")
  1332.                         (append "4"))
  1333.                 ))
  1334.             ))
  1335.         ))
  1336.         (if (> brand 0)
  1337.         (
  1338.             (if (askbool (prompt (#emu))
  1339.                 (help (#emu-help ))
  1340.                 (choices #emu-yes #emu-no))
  1341.             (
  1342.                 (textfile   (dest "Env:StudioPJL")
  1343.                     (append "2"))
  1344.             ))
  1345.         ))
  1346.         (set printerdriver "LaserDriver")
  1347.         (set printerpref "LaserPref")
  1348.         (textfile   (dest "Env:StudioGDit")
  1349.             (append ditherord))
  1350.         (complete (set compl (+ compl 5))) ; 80
  1351.         (textfile   (dest "Env:StudioGAdj")
  1352.             (append "0 90 117 137 153 167 179 190 200 210 218 226 234 241 248 255"))
  1353.     ))
  1354.  
  1355.     ; *** unpack driver to destination
  1356.     (run (cat "StudioDisk:unpack StudioDisk:drivers/"
  1357.         printerdriver
  1358.         ".pkd \""
  1359.         (tackon studdisk (cat printerdriver "\""))
  1360.     ))
  1361.     (if (exists "RAM:StudioTemp")
  1362.     (
  1363.         (abort #abortunpack)
  1364.     ))
  1365.     (copyfiles (source (cat "StudioDisk:drivers/" printerdriver ".info"))
  1366.         (dest studdisk )
  1367.         (files)
  1368.         (nogauge))
  1369.  
  1370.     (complete 85)
  1371.  
  1372.     ; *** unpack preferences program to destination
  1373.     (run (cat "StudioDisk:unpack StudioDisk:Prefs/"
  1374.         printerpref
  1375.         ".pkd \""
  1376.         (tackon prefdisk  printerpref)
  1377.         "\"")
  1378.     )
  1379.     (if (exists "RAM:StudioTemp")
  1380.     (
  1381.         (abort #abortunpack)
  1382.     ))
  1383.     (copyfiles (source (cat "StudioDisk:Prefs/" printerpref ".info"))
  1384.         (dest prefdisk )
  1385.         (files)
  1386.         (nogauge))
  1387.     (complete 90)
  1388.  
  1389.     ; **** copy ENV: vars to ENVARC:
  1390.     (if (>= (/ (getversion) 65536) 37)
  1391.     (
  1392.         (set n 0)
  1393.         (while (set thisfile (select n  "Beep"
  1394.                 "Time"
  1395.                 "ResX"
  1396.                 "ResY"
  1397.                 "GAdj"
  1398.                 "Copies"
  1399.                 "CAdj"
  1400.                 "Dry"
  1401.                 "MAdj"
  1402.                 "YAdj"
  1403.                 "GDit"
  1404.                 "CDit"
  1405.                 "MDit"
  1406.                 "YDit"
  1407.                 "Type"
  1408.                 "Type0"
  1409.                 "Type1"
  1410.                 "Type2"
  1411.                 "Type3"
  1412.                 "Type4"
  1413.                 "Type5"
  1414.                 "Type6"
  1415.                 "Type7"
  1416.                 "Type8"
  1417.                 "Type9"
  1418.                 "Type10"
  1419.                 "Perf"
  1420.                 "Mirror"
  1421.                 "Sep"
  1422.                 "Magenta"
  1423.                 "Yellow"
  1424.                 "Orient"
  1425.                 "TDirect"
  1426.                 "Scale"
  1427.                 "Top"
  1428.                 "Tab"
  1429.                 "Super"
  1430.                 "Form"
  1431.                 "Color"
  1432.                 "GEmu"
  1433.                 "TEmu"
  1434.                 "Strip"
  1435.                 "Quiet"
  1436.                 "KAdj"
  1437.                 "KDit"
  1438.                 "GFeed"
  1439.                 "PageLen"
  1440.                 "Wrap"
  1441.                 "GDirect"
  1442.                 "Shingl"
  1443.                 "Depl"
  1444.                 "Quality"
  1445.                 "Compress"
  1446.                 "Symbol"
  1447.                 "Tray"
  1448.                 "OutTray"
  1449.                 "PJL"
  1450.                 "HighRes"
  1451.                 "PPage"
  1452.                 "PjlHighRes"
  1453.                 "PjlTimeout"
  1454.                 "PjlTimeFlag"
  1455.                 "PjlRet"
  1456.                 "PjlProtect"
  1457.                 "" ))
  1458.         (
  1459.             (set n (+ n 1))
  1460.             (if (exists (cat "ENV:Studio" thisfile))
  1461.             (
  1462.                 (copyfiles (source (cat "ENV:Studio" thisfile))
  1463.                     (dest "ENVARC:")
  1464.                     (nogauge)
  1465.                     (files))
  1466.             ))
  1467.         ))
  1468.     ))
  1469.     (complete 93)
  1470.     (message (cat #finalmsg1
  1471.         printerdriver
  1472.         #finalmsg2
  1473.         (tackon prefdisk printerpref))
  1474.         #finalmsg3
  1475.     )
  1476.     (complete 95)
  1477.     (if (>= (/ (getversion) 65536) 37)
  1478.         (if (exists "sys:prefs/printer")
  1479.         (
  1480.             (run "sys:prefs/printer")
  1481.         ))
  1482.     )
  1483.     (run "StudioDisk:check")
  1484.     (if (not (exists "RAM:StudioTemp"))
  1485.     (
  1486.         (message #wrongdither)
  1487.         (if (>= (/ (getversion) 65536) 37)
  1488.             (if (exists "sys:prefs/printergfx")
  1489.             (
  1490.                 (run "sys:prefs/printergfx")
  1491.             ))
  1492.         )
  1493.     )
  1494.     ( ; else
  1495.         (delete "RAM:StudioTemp")
  1496.     ))
  1497.     (if (< (/ (getversion) 65536) 37)
  1498.         (if (exists "sys:prefs/preferences")
  1499.         (
  1500.             (run "sys:prefs/preferences")
  1501.         ))
  1502.         ( ; else
  1503.             (run (cat "\""
  1504.                 (tackon prefdisk printerpref)
  1505.                 "\""))
  1506.         )
  1507.     )
  1508.     (complete 100)
  1509. ))
  1510.